home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mongo / lotto.do_ / lotto.do
Encoding:
Text File  |  1994-07-11  |  499 b   |  28 lines
  1. REM LOTTERY.BAS
  2. REM:Random Numbers for the lottery
  3. RANDOMIZE TIMER
  4. lotnum = 49
  5. DIM Lotto(lotnum)
  6. FOR I = 1 TO lotnum
  7.    Lotto(I) = 0
  8. NEXT I
  9.  
  10. CLS
  11. FOR I = 1 TO 7
  12. BALL = INT(RND * lotnum + 1)
  13. WHILE Lotto(BALL) <> 0
  14.   BALL = INT(RND * lotnum + 1)
  15.   WEND
  16.   Lotto(BALL) = 1
  17.   PRINT "Ball "; I; " : "; BALL
  18. NEXT I
  19. FOR I = 8 TO 8
  20. BALL = INT(RND * lotnum + 1)
  21. WHILE Lotto(BALL) <> 0
  22.   BALL = INT(RND * lotnum + 1)
  23.   WEND
  24.   Lotto(BALL) = 1
  25. PRINT "WILD CARD BALL"; ":"; BALL
  26. NEXT I
  27.  
  28.